unit UConsultaItensNfMae;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ugeral, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls;

type
  TFConsultaItensNfMae = class(TForm)
    DBGrid1: TDBGrid;
    Ds_Itens: TDataSource;
    QPesquisa: TQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    QPesquisaNF_NUMERONF: TIntegerField;
    QPesquisaNF_SERIENF: TStringField;
    QPesquisaNF_DATAEMISSAO: TDateTimeField;
    QPesquisaITENSNF_QUANTIDADE: TFloatField;
    QPesquisaNF_DI_NDI: TStringField;
    QPesquisaNF_DI_DDT: TDateTimeField;
    QPesquisaNF_CLIENTE_DESC: TStringField;
    QPesquisaITENSNF_PRODUTO: TIntegerField;
    QPesquisaNF_DI_XLOCDESEMB: TStringField;
    QPesquisaNF_DI_UFDESEMB: TStringField;
    QPesquisaNF_CLIENTE: TIntegerField;
    QPesquisaITENSNFE_DI_DDESEMB: TDateTimeField;
    QPesquisaNF_DI_DDESEMB: TDateTimeField;
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FConsultaItensNfMae: TFConsultaItensNfMae;

implementation

uses VendaNotaFiscal;

{$R *.dfm}

procedure TFConsultaItensNfMae.DBGrid1DblClick(Sender: TObject);
begin

 if FVendaNotaFiscal.dsItensMercadoria.DataSet.State in [dsInsert, dsEdit] then
 begin

  FVendaNotaFiscal.dsItensMercadoria.DataSet.FieldByName('ITENSNFE_DI_XLOCDESEMB').AsVariant :=
      Ds_Itens.DataSet.FieldByName('NF_DI_XLOCDESEMB').AsVariant;

  FVendaNotaFiscal.dsItensMercadoria.DataSet.FieldByName('ITENSNFE_DI_UFDESEMB').AsVariant :=
      Ds_Itens.DataSet.FieldByName('NF_DI_UFDESEMB').AsVariant;

  FVendaNotaFiscal.dsItensMercadoria.DataSet.FieldByName('ITENSNFE_DI_COD_EXPORTADOR').AsVariant :=
      Ds_Itens.DataSet.FieldByName('NF_CLIENTE').AsVariant;

  FVendaNotaFiscal.dsItensMercadoria.DataSet.FieldByName('ITENSNFe_DI_NDI').AsVariant :=
      Ds_Itens.DataSet.FieldByName('NF_DI_NDI').AsVariant;

  FVendaNotaFiscal.dsItensMercadoria.DataSet.FieldByName('ITENSNFE_DI_DDT').AsVariant :=
      Ds_Itens.DataSet.FieldByName('NF_DI_DDT').AsVariant;

  FVendaNotaFiscal.dsItensMercadoria.DataSet.FieldByName('ITENSNFE_DI_NF_MAE').AsVariant :=
      Ds_Itens.DataSet.FieldByName('NF_NUMERONF').AsVariant;

  FVendaNotaFiscal.dsItensMercadoria.DataSet.FieldByName('ITENSNFE_DI_DDESEMB').AsVariant :=
      Ds_Itens.DataSet.FieldByName('NF_DI_DDESEMB').AsVariant;

  FVendaNotaFiscal.Label83.Caption :=
      Ds_Itens.DataSet.FieldByName('NF_CLIENTE_DESC').AsVariant;

   close;
 end;

end;

end.
